10 REM*VIDEO RECORDING PLANNER*
20 REM*WRITTEN BY R.R.DAVEY NOV 1989*
30 OPEN15,8,15,"I":CLOSE15
40 REM ***********
50 REM * COLOURS *
60 REM ***********
70 BD=53280:BK=53281
80 OG$=CHR$(27)+CHR$(114)+CHR$(5)
90 GR$=CHR$(27)+CHR$(114)+CHR$(6)
100 BK$=CHR$(27)+CHR$(114)+CHR$(0)
110 REM *****************
120 REM * RECORD FORMAT *
130 REM *****************
140 L1$="[221][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][221][183][183][183][183][183][183][183][221][183][221][183][221][183][221]"
150 L2$="[183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221][183][221]"
160 L3$="[221][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164][164][164][164][164][164][221][164][221][164][221][164][221]"
170 L4$="[164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221][164][221]"
180 REM ******************
190 REM * PLANNER FORMAT *
200 REM ******************
210 L5$="[221][163][163][163][163][163][163][221][163][163][163][163][221][163][163][163][163][163][221][163][163][163][163][163][163][221][163][163][163][163][163][221][163][163][163][163][163][163][163][221]"
220 L6$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][221]"
230 L7$="[221][164][164][164][164][164][164][221][164][164][164][164][221][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][221][164][164][164][164][164][164][164][221]"
240 L8$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221]"
250 GOTO550
260 REM ****************
270 REM * AUDIO SIGNAL *
280 REM ****************
290 SA=54272
300 FORL=0TO24:POKESA+L,0:NEXT
310 POKESA+1,50
320 POKESA+5,11
330 POKESA+15,30
340 POKESA+24,10
350 L=1:POKESA+4,21
360 FORT=1TO1000:NEXT:POKESA+4,20
370 FORT=1TO50:NEXT
380 RETURN
390 REM *****************
400 REM * RESET PRINTER *
410 REM *****************
420 PRINTCHR$(147)
430 POKE214,6:PRINTCHR$(145):POKE211,7
440 PRINT"IF NLQ TYPE STYLE IS USED"
450 POKE214,9:PRINTCHR$(145):POKE211,13
460 PRINT"RESET PRINTER"
470 POKE214,15:PRINTCHR$(145):POKE211,8
480 PRINT"PRESS 'SPACE' WHEN READY";XX$
490 GETXX$:IFXX$=""THEN490
500 IFXX$<>CHR$(32)THENGOTO490
510 RETURN
520 REM *************
530 REM * MAIN MENU *
540 REM *************
550 POKEBD,7:POKEBK,6:PRINTCHR$(147):POKE214,8:PRINTCHR$(145)
560 POKE211,7:PRINTCHR$(158)"1. SELECT TYPE OF PRINTER"
570 POKE214,10:PRINTCHR$(145):POKE211,7
580 PRINTCHR$(30)"2. PRINT PLANNER SHEET"
590 POKE214,12:PRINTCHR$(145):POKE211,7
600 PRINTCHR$(150)"3. PRINT RECORD SHEET"
610 POKE214,14:PRINTCHR$(145):POKE211,7
620 PRINTCHR$(154)"4. EXIT"
630 PRINT"     ENSURE PRINTER IS SWITCHED 'ON'      "
640 PRINT"[145]      AND PAPER AND RIBBON IN PLACE     [146]"
650 POKE214,6:PRINTCHR$(145):POKE211,3
660 PRINT"[155][166][166][166][166][166][166][166][166][166][166][166] MAIN MENU [146][155][166][166][166][166][166][166][166][166][166][166][166][166]"
670 FORL=1TO9:PRINTTAB(3)"[166]"SPC(32)"[166]":NEXT
680 POKE214,16:PRINTCHR$(145):POKE211,3
690 PRINT"[155][166][166][166][166][166][166][166][166][166] SELECT  OPTION [146][155][166][166][166][166][166][166][166][166][166]"
700 GETK$:IFK$=""THEN700
710 K=VAL(K$)
720 IFK<1ORK>4THENGOSUB290:GOTO700
730 ONKGOTO770,1410,1010,1680
740 REM *****************
750 REM * PRINTER TYPES *
760 REM *****************
770 POKEBD,5:POKEBK,6:PRINTCHR$(147):POKE214,6:PRINTCHR$(145):POKE211,13
780 PRINT"[152]C[146]OMMODORE."
790 POKE214,8:PRINTCHR$(145):POKE211,13
800 PRINT"[156]S[146]TAR."
810 POKE214,10:PRINTCHR$(145):POKE211,13
820 PRINT"STAR COL[146]LOR"
830 POKE214,12:PRINTCHR$(145):POKE211,13
840 PRINT"[158]E[146]XIT."
850 POKE214,3:PRINTCHR$(145):POKE211,7
860 PRINT"[155][166][166][166][166][166][166][166]  PRINTER  [146][155][166][166][166][166][166][166][166][166]"
870 FORL=1TO11:PRINTTAB(7)"[166]"SPC(24)"[166]":NEXT
880 POKE214,14:PRINTCHR$(145):POKE211,7
890 PRINT"[155][166][166][166][166][166]  SELECT  TYPE  [146][155][166][166][166][166][166]"
900 POKE214,18:PRINTCHR$(145):POKE211,10
910 PRINTCHR$(5)"SELECT (C S L E)";:INPUTA$
920 PT=0
930 FORI=1TO4
940 IFA$=MID$("CSLE",I,1)THENPT=I
950 NEXTI
960 IFPT<1ORPT>4THENGOSUB290:GOTO900
970 ONPTGOTO550,550,550,1680
980 REM ****************
990 REM * RECORD SHEET *
1000 REM****************
1010 OPEN1,4
1020 PRINT#1,CHR$(27)+CHR$(99)+CHR$(2)
1030 PRINT#1,CHR$(14)
1040 IFA$=CHR$(76)THENGOTO1060
1050 GOTO1080
1060 PRINT#1.OG$
1070 PRINT#1,"            PROGRAMME RECORD":PRINT#1,BK$:PRINT#1:GOTO1090
1080 PRINT#1,"            PROGRAMME RECORD":PRINT#1
1090 PRINT#1,CHR$(15)
1100 PRINT#1,"            PROGRAMME NAME            COUNTER     PROGRAMME LENGTH"
1110 PRINT#1,"               AND TYPE               ON/OFF 0       1       2";
1120 PRINT#1,"       3       4"
1130 FORG=1TO9
1140 PRINT#1,L1$+L2$
1150 PRINT#1,L3$+L4$
1160 NEXTG
1170 IFA$=CHR$(67)THEN1190
1180 IFA$=CHR$(83)ORA$=CHR$(76)THEN1200
1190 PRINT#1,CHR$(14):GOTO1210
1200 PRINT#1,CHR$(27);CHR$(104);CHR$(1)
1210 FORNU=1TO12
1220 PRINT#1,NU;:NEXT
1230 IFA$=CHR$(67)THEN1250
1240 GOTO1260
1250 PRINT#1,CHR$(15):GOTO1270
1260 PRINT#1,CHR$(27);CHR$(64)
1270 CLOSE1
1280 X$=" "
1290 PRINTCHR$(147)
1300 POKE214,6:PRINTCHR$(145):POKE211,9
1310 PRINT"ANOTHER COPY (Y/N)";X$
1320 GETX$:IFX$=""THEN1320
1330 IFX$<>CHR$(89)ANDX$<>CHR$(78)THENGOSUB290:GOTO1280
1340 IFX$=CHR$(78)THENGOTO30
1350 IFA$=CHR$(76)ORA$=CHR$(83)THENGOTO1370
1360 GOTO1010
1370 IFX$=CHR$(89)THENGOSUB420:GOTO1010
1380 REM *****************
1390 REM * PLANNER SHEET *
1400 REM *****************
1410 OPEN1,4
1420 PRINT#1,CHR$(27)+CHR$(99)+CHR$(2)
1430 PRINT#1,CHR$(14)
1440 IFA$=CHR$(76)THENGOTO1460
1450 GOTO1480
1460 PRINT#1,GR$
1470 PRINT#1,"           PROGRAMME PLANNER":PRINT#1,BK$:PRINT#1:GOTO1490
1480 PRINT#1,"           PROGRAMME PLANNER":PRINT#1
1490 PRINT#1,CHR$(15)
1500 PRINT#1,"  DATE   CH  AM/PM   ON   AM/PM   OFF     PROGRAMME NAME/";
1510 PRINT#1,"SYNOPSIS/DURATION"
1520 FORG=1TO10
1530 PRINT#1,L5$+L6$
1540 PRINT#1,L7$+L8$
1550 NEXTG
1560 CLOSE1
1570 X$=" "
1580 PRINTCHR$(147)
1590 POKE214,6:PRINTCHR$(145):POKE211,9
1600 PRINT"ANOTHER COPY (Y/N)";X$
1610 GETX$:IFX$=""THEN1610
1620 IFX$<>CHR$(89)ANDX$<>CHR$(78)THENGOSUB290:GOTO1570
1630 IFX$=CHR$(78)THENGOTO30
1640 GOTO1410
1650 REM ****************
1660 REM * EXIT ROUTINE *
1670 REM ****************
1680 PRINTCHR$(147)CHR$(154)
1690 POKE214,6:PRINTCHR$(145):POKE211,7
1700 INPUT"PRESS (Q)UIT OR (M)ENU ";R$
1710 IFR$<>CHR$(81)ANDR$<>CHR$(77)THENGOSUB290:GOTO1680
1720 IFR$=CHR$(77)THEN550
1730 PRINTCHR$(147)CHR$(155)
1740 POKE214,9:PRINTCHR$(145):POKE211,7
1750 INPUT"ARE YOU SURE-QUIT? (Y/N) ";S$
1760 IFS$<>CHR$(89)ANDS$<>CHR$(78)THENGOSUB290:GOTO1740
1770 IFS$=CHR$(89)THENSYS64738
1780 IFS$=CHR$(78)THENGOTO550
1790 END